home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SAC271.ZIP;1 / FOXPRO.ZIP / SACPR2.FXP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1993-08-27  |  16.8 KB  |  329 lines
  1.  [\<1] - 80 Column Double Star Report
  2.  [\<2] - 132 Column Double Star Report
  3.  [\<3] - Word for Windows (Double Star Data File)
  4.  [\<4] - 80 Column Double Star Log Report
  5.  [\<Q] - Quit to report menu
  6. DEACTIVATE POPUP
  7. SACPR2
  8.   :  :  
  9. Print 
  10. cPRNf
  11. WINDOW
  12. NFORM_SCR
  13. U2000
  14. TIRION
  15. DEXDDATE
  16. DDATE_1
  17. EXDDATE_2
  18. CTIME
  19. CNOTES
  20. DEXAZ
  21. NINDEX
  22. NORDER
  23. NPR_SS
  24. YESNO
  25. CPR_GIF
  26. CPR_PRN
  27. OPTION
  28. CFILE
  29. CPR_WFW
  30. PRINT
  31.   :  :  
  32. 99:99:99
  33. Ascending
  34. Descending8
  35. SET ORDER TO nINDEX &cORDER
  36. INDEX ON UPPER(CLUBS)+UPPER(NAME) TO 
  37.  FOR CLUBS <> SPACE(10)
  38.  .AND. 
  39. mNAME$UPPER(NAME)
  40.  .AND. 
  41. mSTAR$UPPER(STAR)
  42.  .AND. 
  43. CONST=mCONST
  44.  .AND. 
  45. RA-nFAC<=mRA.AND.mRA<=RA+nFAC
  46.  .AND. 
  47. DEC-nFAC<=mDEC.AND.mDEC<=DEC+nFAC
  48.  .AND. 
  49. MAG1-nFAC<=mMAG1.AND.mMAG1<=MAG1+nFAC
  50.  .AND. 
  51. MAG2-nFAC<=mMAG2.AND.mMAG2<=MAG2+nFAC
  52.  .AND. 
  53. SEP-nFAC<=mSEP.AND.mSEP<=SEP+nFAC
  54.  .AND. 
  55. PA-nFAC<=mPA.AND.mPA<=PA+nFAC
  56.  .AND. 
  57. mSPEC$SPEC
  58.  .AND. 
  59. YEAR-nFAC<=mYEAR.AND.mYEAR<=YEAR+nFAC
  60.  .AND. 
  61. ADS-nFAC<=mADS.AND.mADS<=ADS+nFAC
  62.  .AND. 
  63. mCLUBS$UPPER(CLUBS)
  64.  .AND. 
  65. mNOTES$UPPER(NOTES)
  66. SET FILTER TO &cD
  67.  .AND. 
  68. dDATE_1<=LOG_DATE
  69.  .AND. 
  70. LOG_DATE<=dDATE_2
  71. SET FILTER TO &cD
  72. Press [ESC] to return to main menu...
  73. cDBL_INDEXf
  74. CTIME
  75. DDATE
  76. M_SCR
  77. CORDER
  78. NORDER
  79. CDBL_INDEXNINDEX
  80. FNFILE
  81. DEXPLSWAIT
  82. FNTALK
  83. _INDEXNAME
  84. MNAME
  85. MSTAR
  86. CONST
  87. MCONST
  88. MMAG1
  89. MMAG2
  90. MSPEC
  91. MYEAR
  92. MU2000
  93. U2000
  94. MTIRION
  95. TIRION
  96. CLUBS
  97. MCLUBS
  98. CNOTES
  99. MNOTES
  100. DBLLOG
  101. DDATE_1
  102. DDATE_2
  103. PRINT1
  104. PRINT2
  105. PRINT3
  106. PRINT4
  107. CDATAPATH
  108. NFORM_NDX
  109. ?? &cPR_DEF
  110. bESC =.T.
  111. ?? &cPR_DEF
  112. ?? &cPR_BON
  113. Page F
  114. 80 Column SAC Double Star Report
  115. Date is 
  116.  Double Star Filter is 
  117. ?? &cPR_BOFF
  118.  Name: 
  119. Star: 
  120.  Constellation : 
  121. M->CONST
  122. L.S.T.: 
  123.  Right Ascension : F
  124. 99.9999c
  125. Azimuth  (DDD.MMSS):F
  126. 999.9999c
  127.   Date: 
  128.  Declination     :F
  129. 999.9999c
  130. Altitude (DDD.MMSS):F
  131. 999.9999c
  132.   Time: 
  133.  Magnitude of Primary: F
  134. Magnitude of Secondary: 
  135.  Component: 
  136. Separation: F
  137. Position Angle: 
  138.  Spectrum: 
  139. Year: F
  140. ADS: 
  141. U 2000     : 
  142.  Clubs: 
  143. Tirion 2000: 
  144. Notes: 
  145.        
  146. cPRNf
  147. * * * Report Interrupted by User * * *
  148. ?? &cPR_DEF
  149. Number of Printed Records = F
  150. CFILE
  151. NCOUNT
  152. NPAGE
  153. NPR_MAX
  154. NRPT_ROW
  155. NRPT_MAX
  156. INDEXDDATE
  157. DEXLST
  158. CTIME
  159. INDEXDMS
  160. AL_AZ
  161. U2000
  162. FNU2000
  163. TIRION
  164. FNTIRION
  165. MU2000
  166. MTIRION
  167. CDBL_NAME
  168. CONST
  169. FLD_DES
  170. CLUBS
  171. T_ROW
  172. NOTES
  173. CGIFPATH
  174. CPR_GIF
  175. PRINT_GIF
  176. THERM
  177. ?? &cPR_CON
  178. bESC =.T.
  179. ?? &cPR_BON
  180. Page F
  181. 132 Column SAC Double Star Report
  182. Date is 
  183.  Double Star Filter is 
  184.                                             RA    Mag1 Comp  PA   Year      Tirion                  
  185.      Name               Star        Const   Dec.  Mag2 Sep   Spec  ADS      U2000          Clubs    
  186. ----------------- -----------------  ---  ------- ---- ----- ---  ----- ---------------- ---------- 
  187. ?? &cPR_BOFF
  188.                                          F
  189.                              Notes: 
  190.                                     
  191. * * * Report Interrupted by User * * *
  192. ?? &cPR_DEF
  193. Number of Printed Records = F
  194. CFILE
  195. NCOUNT
  196. NPAGE
  197. NPR_MAX
  198. NRPT_ROW
  199. NRPT_MAX
  200. INDEXDDATE
  201. DEXLST
  202. CTIME
  203. INDEXDMS
  204. AL_AZ
  205. U2000
  206. FNU2000
  207. TIRION
  208. FNTIRION
  209. MU2000
  210. MTIRION
  211. CDBL_NAME
  212. CONST
  213. CLUBS
  214. T_ROW
  215. NOTES
  216. THERM
  217. CONST
  218. U2000
  219. TIRION
  220. NOTES
  221. CLUBS
  222. bESC =.T.
  223. Number of Printed Records = F
  224. CFILE
  225. NCOUNT
  226. DDATE
  227. CTIME
  228. NDEXCLST
  229. DEXNRA
  230. INDEXNAZ
  231. AL_AZ
  232. U2000
  233. FNU2000
  234. TIRION
  235. FNTIRION
  236. MU2000
  237. MTIRION
  238. CONST
  239. NOTES
  240. NNOTES
  241. CLUBS
  242. THERM
  243. ?? &cPR_DEF
  244. bESC =.T.
  245. ?? &cPR_DEF
  246. ?? &cPR_BON
  247. Page F
  248. 80 Column SAC Double Star Log
  249. Date is 
  250.  Double Star Filter is 
  251. ?? &cPR_BOFF
  252.  Name: 
  253. Star: 
  254.  Constellation : 
  255. M->CONST
  256. L.S.T.: 
  257.  Right Ascension : F
  258. 99.9999c
  259. Azimuth  (DDD.MMSS):F
  260. 999.9999c
  261.   Date: 
  262.  Declination     :F
  263. 999.9999c
  264. Altitude (DDD.MMSS):F
  265. 999.9999c
  266.   Time: 
  267.  Magnitude of Primary: F
  268. Magnitude of Secondary: 
  269.  Component: 
  270. Separation: F
  271. Position Angle: 
  272.  Spectrum: 
  273. Year: F
  274. ADS: 
  275. U 2000     : 
  276.  Clubs: 
  277. Tirion 2000: 
  278.  Log Date: F
  279. Log Time: 
  280.  Log Date: F
  281. Log Time: 
  282. Notes: 
  283.        
  284. cPRNf
  285. DELETE FILE &cGIF
  286. * * * Report Interrupted by User * * *
  287. ?? &cPR_DEF
  288. Number of Printed Records = F
  289. CFILE
  290. NCOUNT
  291. NPAGE
  292. NPR_MAX
  293. NRPT_ROW
  294. NRPT_MAX
  295. NDEXDDATE
  296. DEXLST
  297. CTIME
  298. INDEXDMS
  299. CNAME
  300. CSTAR
  301. AL_AZ
  302. U2000
  303. FNU2000
  304. TIRION
  305. FNTIRION
  306. MU2000
  307. MTIRION
  308. DBLLOG
  309. CDBL_NAME
  310. CONST
  311. FLD_DES
  312. CLUBS
  313. LOG_DATE
  314. LOG_TIME
  315. T_ROW
  316. NOTES
  317. CGIFPATH
  318. CPR_GIF
  319. PRINT_GIF
  320. THERM
  321. PRINT
  322. PRINT1
  323. PRINT2
  324. PRINT3
  325. PRINT4
  326. D:\SKY\SAC\
  327. SACPR2.FXP
  328. D:\SKY\SAC\SACPR2.PRG
  329.